0 REM << RR38-3 >>
1 REM ---------------------
2 PRINT"  SCREEN FLASH "
3 REM   RUPERT REPORT #38
4 REM        C-64
5 REM  MUST RUN MODIFIED
6 REM 'STRING LOADER' FIRST.
7 REM ----------------------
10 IF PEEK(49153)<>8 THEN PRINT"MUST RUN MODIFIED STRING LOADER FIRST":STOP
20 INPUT"PRESS ANY KEY TO BEGIN OR TO END";A$
30 N=960               :REM QUANTITY
40 Y=INT(N/256)        :REM MSB
50 X=N-Y*256           :REM LSB
60 PRINT CHR$(147);
70 POKE 781,X          :REM X REGISTER
80 POKE 782,Y          :REM Y REGISTER
90 CH=RND(0)*64+64     :REM CHARACTER
100 POKE 780,CH        :REM A REGISTER
110 SYS 49152
120 FOR P=1 TO 200:NEXT  :REM PAUSE
130 GET A$ : IF A$="" THEN GOTO 60